home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
United Public Domain Gold 2
/
United Public Domain Gold 2.iso
/
music_utilities
/
pt125.dms
/
pt125.adf
/
fmsynth_3.2
/
sf2.fmsy
< prev
next >
Wrap
Text File
|
1993-12-13
|
1KB
|
82 lines
/* Play demo of all voices in voicedir */
listname = "ram:voicelist"
voicedir = "voices/"
cmdline = 'c:list' voicedir || '#? nohead quick to' listname
shell command cmdline
address fmsynth
succ = open(file,listname,"r")
if succ=0 then exit
do until eof(file)
line = readln(file)
voicename = voicedir || line
'openvoice' voicename
if rc=0 then do
'calcsound'
'pause' 1/4
call play 5, 1/8
call play 7, 1/8
call play 5, 1/8
call play 0, 1/2
call play 5, 1/16
call play 7, 1/16
call play 5, 1/8
call play 7, 1/8
call play 5, 1/8
call play 12,5/8
call play 9, 1/8
call play 10,1/8
call play 9, 1/8
call play 7, 1/4
call play 9, 1/8
call play 7, 1/4
call play 5, 1/8
call play 2, 1/16
call play 4, 1/16
call play 5, 1/8
call play 5, 1/16
call play 7, 1/16
call play 9, 1/2
call play 14, 1/4
call play 17, 1/4
call play 16, 1/4
call play 13, 1/4
call play 14, 3/8
call play 14, 1/16
call play 16, 1/16
call play 14, 1/2
end
end
close(file)
exit
play:
arg n,m
'noteon' n+16
'pause' m*1.9-0.04
'noteoff' n+16
'pause' 0.02
return